home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Co-Cz / COLUMNIZER.cpt / columnizer / card_3441.txt < prev    next >
Text File  |  1988-02-24  |  11KB  |  518 lines
  1. -- card: 3441 from stack: in
  2. -- bmap block id: 3151
  3. -- flags: 4000
  4. -- background id: 2562
  5. -- name: Columnizer™ XCMD
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=106 top=150 right=170 bottom=240
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Columnize
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   Columnize 0,card field "startcol",card field "colOff",card field "Before"
  23.   put the result into card field "test"
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (field)
  29. -- low flags: 00
  30. -- high flags: 0004
  31. -- rect: left=398 top=132 right=146 bottom=458
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 9
  37. -- style flags: 0
  38. -- line height: 12
  39. -- part name: startcol
  40.  
  41.  
  42. -- part 3 (field)
  43. -- low flags: 00
  44. -- high flags: 0004
  45. -- rect: left=398 top=149 right=163 bottom=457
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 0
  49. -- font id: 3
  50. -- text size: 9
  51. -- style flags: 0
  52. -- line height: 12
  53. -- part name: coloff
  54.  
  55.  
  56. -- part 4 (field)
  57. -- low flags: 00
  58. -- high flags: 0004
  59. -- rect: left=255 top=184 right=202 bottom=478
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 3
  64. -- text size: 9
  65. -- style flags: 0
  66. -- line height: 12
  67. -- part name: before
  68.  
  69.  
  70. -- part 5 (field)
  71. -- low flags: 01
  72. -- high flags: 0002
  73. -- rect: left=255 top=226 right=269 bottom=477
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 0
  77. -- font id: 3
  78. -- text size: 9
  79. -- style flags: 0
  80. -- line height: 10
  81. -- part name: test
  82.  
  83.  
  84. -- part 6 (button)
  85. -- low flags: 00
  86. -- high flags: A003
  87. -- rect: left=106 top=208 right=228 bottom=241
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Extract character
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   Columnize 1,card field "extract",0,card field "Before"
  99.   put the result into card field "test"
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 7 (button)
  105. -- low flags: 00
  106. -- high flags: A003
  107. -- rect: left=106 top=229 right=248 bottom=241
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Extract word
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   Columnize 1,card field "extract",1,card field "Before"
  119.   put the result into card field "test"
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 8 (button)
  125. -- low flags: 00
  126. -- high flags: 2000
  127. -- rect: left=58 top=148 right=170 bottom=86
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 26635 / 26635
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: 
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   show card field "columnize"
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 9 (button)
  144. -- low flags: 00
  145. -- high flags: 2000
  146. -- rect: left=58 top=203 right=225 bottom=86
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 26635 / 26635
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: 
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   show card field "Extract character"
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 10 (button)
  163. -- low flags: 00
  164. -- high flags: 2000
  165. -- rect: left=58 top=227 right=249 bottom=86
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 26635 / 26635
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: 
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   show card field "Extract word"
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 12 (button)
  182. -- low flags: 00
  183. -- high flags: A003
  184. -- rect: left=107 top=172 right=192 bottom=241
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: Columnize fields
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   Columnize 2,card field "startcol",card field "colOff",card field "Before"
  196.   put the result into card field "test"
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 13 (button)
  202. -- low flags: 00
  203. -- high flags: 2000
  204. -- rect: left=58 top=172 right=194 bottom=86
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 26635 / 26635
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: 
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   show card field "Columnize fields"
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 14 (button)
  221. -- low flags: 00
  222. -- high flags: A003
  223. -- rect: left=106 top=249 right=268 bottom=241
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Extract field
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   Columnize 1,card field "extract",2,card field "Before"
  235.   put the result into card field "test"
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 15 (button)
  241. -- low flags: 00
  242. -- high flags: 2000
  243. -- rect: left=59 top=250 right=272 bottom=87
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 26635 / 26635
  246. -- text alignment: 1
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: 
  252. ----- HyperTalk script -----
  253. on mouseUp
  254.   show card field "Extract field"
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 16 (button)
  260. -- low flags: 00
  261. -- high flags: 2000
  262. -- rect: left=363 top=27 right=67 bottom=406
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 31685 / 31685
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: 
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   push this card
  274.   put the short name of this card & " help" into target
  275.   go to card target
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 17 (field)
  281. -- low flags: 00
  282. -- high flags: 0004
  283. -- rect: left=251 top=276 right=290 bottom=311
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 0
  287. -- font id: 3
  288. -- text size: 9
  289. -- style flags: 0
  290. -- line height: 12
  291. -- part name: extract
  292.  
  293.  
  294. -- part 18 (button)
  295. -- low flags: 00
  296. -- high flags: A002
  297. -- rect: left=84 top=98 right=116 bottom=219
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: Ver 1.0 - 02/23/88
  306. ----- HyperTalk script -----
  307. on mouseUp
  308.   go to card "Other stuff"
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 19 (button)
  314. -- low flags: 00
  315. -- high flags: 2000
  316. -- rect: left=83 top=33 right=74 bottom=123
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 3182 / 3182
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: 
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.  
  328.   set userlevel to 5
  329.   show button "the icon"
  330.   choose button tool
  331.   click at loc of button "the icon"
  332.   doMenu "Copy Button"
  333.   go to stack "Home"
  334.   doMenu "Paste Button"
  335.   show message box at 16,37
  336.   put "Move the 'Columnizer' button to a good location"
  337.   play harpsichord "ee c ee"
  338.   wait until the mouse is down
  339.   set hilite of button "the icon" to true
  340.  
  341.   repeat until the mouse is up
  342.     set loc of button "the icon" to the mouseLoc
  343.   end repeat
  344.  
  345.   set hilite of button "the icon" to false
  346.   choose browse tool
  347.   go back
  348.   hide message box
  349.   play harpsichord "c ee c"
  350.   set userlevel to 5
  351.   hide card button "the icon"
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part 20 (field)
  357. -- low flags: 81
  358. -- high flags: 0004
  359. -- rect: left=106 top=170 right=244 bottom=334
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 0
  363. -- font id: 3
  364. -- text size: 9
  365. -- style flags: 256
  366. -- line height: 10
  367. -- part name: Columnize
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   hide card field "Columnize"
  371. end mouseUp
  372.  
  373.  
  374. -- part 21 (field)
  375. -- low flags: 81
  376. -- high flags: 0004
  377. -- rect: left=109 top=192 right=266 bottom=337
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 0
  381. -- font id: 3
  382. -- text size: 9
  383. -- style flags: 256
  384. -- line height: 10
  385. -- part name: Columnize fields
  386. ----- HyperTalk script -----
  387. on mouseUp
  388.   hide card field "Columnize fields"
  389. end mouseUp
  390.  
  391.  
  392. -- part 22 (field)
  393. -- low flags: 81
  394. -- high flags: 0004
  395. -- rect: left=98 top=134 right=208 bottom=326
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 0 / 0
  398. -- text alignment: 0
  399. -- font id: 3
  400. -- text size: 9
  401. -- style flags: 256
  402. -- line height: 10
  403. -- part name: Extract character
  404. ----- HyperTalk script -----
  405. on mouseUp
  406.   hide card field "Extract character"
  407. end mouseUp
  408.  
  409.  
  410. -- part 24 (field)
  411. -- low flags: 81
  412. -- high flags: 0004
  413. -- rect: left=105 top=155 right=229 bottom=333
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 0
  417. -- font id: 3
  418. -- text size: 9
  419. -- style flags: 256
  420. -- line height: 10
  421. -- part name: Extract word
  422. ----- HyperTalk script -----
  423. on mouseUp
  424.   hide card field "Extract word"
  425. end mouseUp
  426.  
  427.  
  428. -- part 25 (field)
  429. -- low flags: 81
  430. -- high flags: 0004
  431. -- rect: left=106 top=175 right=249 bottom=334
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 0 / 0
  434. -- text alignment: 0
  435. -- font id: 3
  436. -- text size: 9
  437. -- style flags: 256
  438. -- line height: 10
  439. -- part name: Extract field
  440. ----- HyperTalk script -----
  441. on mouseUp
  442.   hide card field "Extract field"
  443. end mouseUp
  444.  
  445.  
  446. -- part 26 (button)
  447. -- low flags: 80
  448. -- high flags: 2000
  449. -- rect: left=219 top=183 right=224 bottom=259
  450. -- title width / last selected line: 0
  451. -- icon id / first selected line: 3182 / 3182
  452. -- text alignment: 1
  453. -- font id: 0
  454. -- text size: 12
  455. -- style flags: 0
  456. -- line height: 16
  457. -- part name: the icon
  458. ----- HyperTalk script -----
  459. on mouseUp
  460.   go to stack "Columnizer"
  461. end mouseUp
  462.  
  463.  
  464.  
  465. -- part contents for background part 5
  466. ----- text -----
  467. Columnizer‚Ñ¢ XCMD
  468.  
  469. -- part contents for card part 2
  470. ----- text -----
  471. 4
  472.  
  473. -- part contents for card part 3
  474. ----- text -----
  475. 10
  476.  
  477. -- part contents for card part 4
  478. ----- text -----
  479. this\ is a\ sample\ input string\ wi\th fields
  480.  
  481.  
  482. -- part contents for card part 5
  483. ----- text -----
  484. elds
  485.  
  486. -- part contents for card part 17
  487. ----- text -----
  488. 43
  489.  
  490. -- part contents for card part 20
  491. ----- text -----
  492. The "Columnize" button will place the 
  493. "Input String" into columns starting at 
  494. "Start Column" with "Space between columns" between columns.  The text is delimited by spaces.  Play with different values of "Space between columns".  Try small values.
  495.  
  496. -- part contents for card part 21
  497. ----- text -----
  498. The "Columnize fields" button will place the string in "Input String" into columns starting at column "Start Column" with "Space between columns" characters between columns.  Fields are delimited by '\'.
  499.  
  500. -- part contents for card part 22
  501. ----- text -----
  502.  
  503.  
  504. The "Extract character" will return the character at character number 
  505. "Extract at" of the "Input String".
  506.  
  507. -- part contents for card part 24
  508. ----- text -----
  509.  
  510. The "Extract word" button will return all of the characters from character 
  511. "Extract at" up to the next space of 
  512. "Input String". 
  513.  
  514.  
  515. -- part contents for card part 25
  516. ----- text -----
  517.  
  518. The button "Extract field" will return all of the characters starting at character "Extract at" of "Input String" up to and including the next '\' character.